home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Online / IB-TablePrint / ruler_Hs.gc < prev    next >
Encoding:
Gui4CLI script  |  2001-08-17  |  3.3 KB  |  211 lines
  1. G4C
  2.  
  3. WINBIG 0 -10 624 5 ''
  4. WINSMALL 0 20p 624 22 
  5. WINTYPE 00001000
  6. ;WINTYPE 11110001
  7. WINFONT topaz.font 8 010
  8.  
  9.  
  10. xONLOAD
  11.  Gosub #this Default
  12.  
  13. xONRELOAD
  14.  Gosub #this Default
  15.  
  16. xROUTINE Default
  17.  WLeft = 0
  18.  WTop = 10
  19.  SeeIt = -1
  20.  GuiOpen #this
  21.  
  22. xONCLOSE
  23.  ;GuiQuit #this
  24.  
  25. LINE 10 0 10 2 1
  26. LINE 20 0 20 2 1
  27. LINE 30 0 30 2 1
  28. LINE 40 0 40 2 1
  29. LINE 50 0 50 3 1
  30. LINE 60 0 60 2 1
  31. LINE 70 0 70 2 1
  32. LINE 80 0 80 2 1
  33. LINE 90 0 90 2 1
  34. LINE 100 0 100 4 1
  35. LINE 110 0 110 2 1
  36. LINE 120 0 120 2 1
  37. LINE 130 0 130 2 1
  38. LINE 140 0 140 2 1
  39. LINE 150 0 150 3 1
  40. LINE 160 0 160 2 1
  41. LINE 170 0 170 2 1
  42. LINE 180 0 180 2 1
  43. LINE 190 0 190 2 1
  44. LINE 200 0 200 4 1
  45. LINE 210 0 210 2 1
  46. LINE 220 0 220 2 1
  47. LINE 230 0 230 2 1
  48. LINE 240 0 240 2 1
  49. LINE 250 0 250 3 1
  50. LINE 260 0 260 2 1
  51. LINE 270 0 270 2 1
  52. LINE 280 0 280 2 1
  53. LINE 290 0 290 2 1
  54. LINE 300 0 300 4 1
  55. LINE 310 0 310 2 1
  56. LINE 320 0 320 2 1
  57. LINE 330 0 330 2 1
  58. LINE 340 0 340 2 1
  59. LINE 350 0 350 3 1
  60. LINE 360 0 360 2 1
  61. LINE 370 0 370 2 1
  62. LINE 380 0 380 2 1
  63. LINE 390 0 390 2 1
  64. LINE 400 0 400 4 1
  65. LINE 410 0 410 2 1
  66. LINE 420 0 420 2 1
  67. LINE 430 0 430 2 1
  68. LINE 440 0 440 2 1
  69. LINE 450 0 450 3 1
  70. LINE 460 0 460 2 1
  71. LINE 470 0 470 2 1
  72. LINE 480 0 480 2 1
  73. LINE 490 0 490 2 1
  74. LINE 500 0 500 4 1
  75. LINE 510 0 510 2 1
  76. LINE 520 0 520 2 1
  77. LINE 530 0 530 2 1
  78. LINE 540 0 540 2 1
  79. LINE 550 0 550 3 1
  80. LINE 560 0 560 2 1
  81. LINE 570 0 570 2 1
  82. LINE 580 0 580 2 1
  83. LINE 590 0 590 2 1
  84. LINE 600 0 600 4 1
  85. LINE 610 0 610 5 1
  86. LINE 620 0 620 5 1
  87.  
  88. xBUTTON 0 12 20 12 Cl ; <<Cl>>
  89.  GadHelp "Close Ruler"
  90.  GuiClose #this
  91.  
  92. xBUTTON 20 12 20 12 D ; <<D>>
  93.  GadHelp "Ruler Down"
  94.  SetGad #this 10 ON
  95.  SetGad #this 11 OFF
  96.  
  97. xBUTTON 40 12 20 12 S ; <<S>>
  98.  GadId 1
  99.  GadHelp "Stop Ruler "
  100.  SetGad #this 10 OFF
  101.  SetGad #this 11 OFF
  102.  EzReq " OK or choose exact position ?" "ok|pos" var
  103.  PosV = ''
  104.  IF $var = 0
  105.     I = 1
  106.     WHILE $I < 4
  107.         EzReq "Add digit $I to $PosV" "1|2|3|4|5|6|7|8|9|0|stop" var
  108.         IF $var = 0
  109.             IF $I = 1
  110.                 PosV = -10
  111.                 I = 3
  112.             ELSE
  113.                 I = 3
  114.             ENDIF
  115.         ELSE
  116.             var = $var[-1]
  117.             PosV = "$PosV\#$var"
  118.         ENDIF
  119.      ++I
  120.     ENDWHILE
  121.     TopW = $PosV
  122.     GuiClose #this
  123.     ChangeGad #this 0 0 $TopW 624 6 ""
  124.     GuiOpen #this
  125.  ENDIF
  126.     
  127.  
  128. xBUTTON 60 12 20 12 U ; <<U>>
  129.  GadHelp "Ruler Up"
  130.  SetGad #this 10 OFF
  131.  SetGad #this 11 ON
  132.  
  133. xTIMER REPEAT 0:0:02 OFF
  134.  GadId 10
  135.  Gosub #this Down
  136.  
  137. xTIMER REPEAT 0:0:02 OFF
  138.  GadId 11
  139.  Gosub #this Up
  140.  
  141. xONKEY #R
  142.  IF $$RAWKEY.QUAL = 32768
  143.     IF $$RAWKEY.CODE = 77
  144.         Gosub #this Down
  145.     ELSEIF $$RAWKEY.CODE = 76
  146.         Gosub #this Up
  147.      ENDIF
  148.  ELSEIF $$RAWKEY.QUAL = 32769
  149.     IF $$RAWKEY.CODE = 77
  150.         Gosub #this Bottom
  151.     ELSEIF $$RAWKEY.CODE = 76
  152.         Gosub #this Top
  153.      ENDIF
  154.  ENDIF
  155.  
  156. xONKEY u
  157.  Gosub #this Up
  158.  
  159. xROUTINE Up
  160.  GuiClose #this
  161.  WTop = $($WTop  - 5)
  162.  ChangeGad #this 0 0 $WTop 624 6 ""
  163.  GuiOpen #this
  164.  
  165. xROUTINE Down
  166.  GuiClose #this
  167.  WTop = $($WTop + 5)
  168.  ChangeGad #this 0 0 $WTop 624 6 ""
  169.  GuiOpen #this
  170.  
  171.  GuiOpen #this
  172.  
  173. xONKEY t
  174.  Gosub #this Top
  175.  
  176. xROUTINE Top
  177.  GuiClose #this
  178.  ChangeGad #this 0 0 10 624 6 ""
  179.  WTop = 0
  180.  GuiOpen #this
  181.  
  182.  
  183. xONKEY b
  184.  Gosub #this Bottom
  185.  
  186. xROUTINE Bottom
  187.  GuiClose #this
  188.  ChangeGad #this 0 0 250 624 6 ""
  189.  WTop = 250
  190.  GuiOpen #this
  191.  
  192.  
  193. xONKEY s
  194.  SetGad #this 10 OFF
  195.  SetGad #this 11 OFF
  196.  
  197. xONRMB
  198.  
  199.  
  200.  GuiClose #this
  201.  IF $SeeIt = -1
  202.      ChangeGad #this 0 0 -10 624 24 ""
  203.  ELSE
  204.     ChangeGad #this 0 0 -10 624 6 ""
  205.  ENDIF
  206.  SeeIt = $(- $SeeIt)
  207.  GuiOpen #this
  208.  
  209. LINE 0 0 624 0 1
  210.  
  211. xTEXTBOX 60 12 624 10 "" "   100         200          300          400         500         600"